01 LBL "D1" 
02 730425.8 
03 + 
04 RCL X 
05 36524.25 
06 / 
07 INT 
08 25 
09 % 
10 INT 
11 - 
12 2 
13 FS? 04 
14 X<>Y 
15 RDN 
16 + 
17 RCL X 
18 365.25 
19 ST/ Y 
20 X<>Y 
21 INT 
22 STO M 
23 * 
24 INT 
25 - 
26 .3 
27 - 
28 RCL X 
29 30.6 
30 ST/ Y 
31 X<>Y 
32 INT 
33 * 
34 ST- Y 
35 ISG Y 
36 X<> L 
37 3 
38 - 
39 6 
40 X<Y? 
41 ISG M 
42 CHS 
43 - 
44 X<>Y 
45 INT 
46 E2 
47 / 
48 + 
49 E2 
50 / 
51 0 
52 X<> M 
53 + 
54 END 
